home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Power Scripts v1.3.cpt / MH Power Scripts v1.3 / card_8500.txt < prev    next >
Text File  |  1988-05-06  |  5KB  |  146 lines
  1. -- card: 8500 from stack: in.3
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2663
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2002
  11. -- rect: left=288 top=30 right=51 bottom=312
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1015 / 1015
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Chooser
  20. ----- HyperTalk script -----
  21. on copyright
  22.  
  23.   -- Menu Accessory, Copyright by Mac Help Co., January 1988
  24.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  25.   -- Long Beach, CA  90805, (213) 428-7414
  26.   --      The script for this button is copyrighted and may not be
  27.   --      used without the written permission of the author (above).
  28.  
  29. end copyright
  30.  
  31.  
  32. on mouseUp
  33.  
  34.   put the name of the target into ThisName
  35.   put ThisName into ButtonName
  36.   delete word 1 to 2 of ThisName
  37.   delete first char of ThisName
  38.   delete last char of ThisName
  39.  
  40.   if the ShiftKey is down or ThisName is "Not Set" then
  41.     answer "Do you need directions first or attach desk accessory?" with "Accessory" or "Directions"
  42.     if it is "Accessory" then
  43.       ask "Enter the exact name of the new desk accessory?" with ThisName
  44.       if it is empty then put "Not Set" into it
  45.       set the name of ButtonName to it
  46.       put it into ThisName
  47.     end if
  48.     if it is "Directions" then
  49.       put "You may use this button to activate a desk accessory such" && "as a calculator for instance.  Before this message appears," && "choose 'Accessory' to attach a desk accessory and then type in the" && "exact name of the desk accessory (as it appears in the apple" && "menu).  The desk accessory will be called up when you click the" && "button." into String
  50.       ask "Directions" with String
  51.       exit mouseUp
  52.     end if
  53.   end if
  54.  
  55.   doMenu ThisName
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 2 (button)
  61. -- low flags: 00
  62. -- high flags: 2002
  63. -- rect: left=320 top=30 right=51 bottom=344
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 1015 / 1015
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Not Set
  72. ----- HyperTalk script -----
  73. on copyright
  74.  
  75.   -- Menu Accessory, Copyright by Mac Help Co., January 1988
  76.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  77.   -- Long Beach, CA  90805, (213) 428-7414
  78.   --      The script for this button is copyrighted and may not be
  79.   --      used without the written permission of the author (above).
  80.  
  81. end copyright
  82.  
  83.  
  84. on mouseUp
  85.  
  86.   put the name of the target into ThisName
  87.   put ThisName into ButtonName
  88.   delete word 1 to 2 of ThisName
  89.   delete first char of ThisName
  90.   delete last char of ThisName
  91.  
  92.   if the ShiftKey is down or ThisName is "Not Set" then
  93.     answer "Do you need directions first or attach desk accessory?" with "Accessory" or "Directions"
  94.     if it is "Accessory" then
  95.       ask "Enter the exact name of the new desk accessory?" with ThisName
  96.       if it is empty then put "Not Set" into it
  97.       set the name of ButtonName to it
  98.       put it into ThisName
  99.     end if
  100.     if it is "Directions" then
  101.       put "You may use this button to activate a desk accessory such" && "as a calculator for instance.  Before this message appears," && "choose 'Accessory' to attach a desk accessory and then type in the" && "exact name of the desk accessory (as it appears in the apple" && "menu).  The desk accessory will be called up when you click the" && "button." into String
  102.       ask "Directions" with String
  103.       exit mouseUp
  104.     end if
  105.   end if
  106.  
  107.   doMenu ThisName
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 3 (field)
  113. -- low flags: 01
  114. -- high flags: 0004
  115. -- rect: left=344 top=25 right=40 bottom=404
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 3
  120. -- text size: 9
  121. -- style flags: 0
  122. -- line height: 12
  123. -- part name: See Script
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   edit script of card button ID 2
  127. end mouseUp
  128.  
  129.  
  130. -- part contents for background part 8
  131. ----- text -----
  132. Card 13 of 20
  133.  
  134. -- part contents for background part 9
  135. ----- text -----
  136. MENU ACCESSORY
  137.  
  138. This button will allow the user to set the button to call up any menu command without having to do any programming.
  139.  
  140. If the name of the button is 'NOT SET' then it will give directions.  Hold the shift key down while clicking on the button to set its function.
  141.  
  142. Some useFul settings would be to call up the Calculator, or NotePad or Scrapbook, or any commonly used menu commands themselves.
  143.  
  144. -- part contents for card part 3
  145. ----- text -----
  146. See Script